home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_503_EachMenu < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.2 KB  |  45 lines
  1. %case usesDialogs%
  2.     %for each menuitem gen usesDialog%
  3. %case setup%
  4.     %if menuname = Apple%
  5.     %elsif menuname = File%
  6.     %elsif menuname = Edit%
  7.     %elsif menuname = Font%
  8.  
  9.         AddResMenu (GetMHandle (%menuID%), 'FONT');
  10.         gBartender.SetDimOption (%menuID%, dimNONE);
  11.         gBartender.SetUnchecking (%menuID%, true);
  12.     %elsif menuname = Size%
  13.  
  14.         gBartender.SetDimOption (%menuID%, dimNONE);
  15.         gBartender.SetUnchecking (%menuID%, true);
  16.     %elsif menuname = Style%
  17.  
  18.         gBartender.SetDimOption (%menuID%, dimNONE);
  19.         gBartender.SetUnchecking (%menuID%, true);
  20.     %elsif main|hierarchical%
  21.  
  22.         gBartender.SetDimOption (%menuID%, dimNONE);
  23.         gBartender.SetUnchecking (%menuID%, true);
  24.     %endif%
  25. %case addPopup%
  26.     %if not main|hierarchical%
  27.         gBartender.AddMenu (%menuID%, true, hierMenu);
  28.         gBartender.SetDimOption (%menuID%, dimNONE);
  29.         gBartender.SetUnchecking (%menuID%, true);
  30.     %endif%
  31. %case doItems.decl%
  32.     %for each menuItem gen doItem.decl%
  33. %case doItems%
  34.     %for each menuItem gen doItem%
  35. %case doItems.decl.override%
  36.     %for each menuItem gen doItem.decl.override%
  37. %case doItems.override%
  38.     %for each menuItem gen doItem.override%
  39. %case handleItems%
  40.     %for each menuItem gen handleItem%
  41. %case defineMenu%
  42.     %menuname%ID%        %= %MenuID%; 
  43.     %for each menuItem gen defineItem%
  44.  
  45.